home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-3.dxr / 00029.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  963 b   |  37 lines
  1. on exitFrame
  2.   global bVideoNormal, nVr, bVrPlay, sMensaje02, sPathIni, objMovie
  3.   set bVrPlay to 1
  4.   openXLib(sPathIni & "qtvrw.qtc")
  5.   set objMovie to qtvrw(mnew, "Nav")
  6.   if objectp(objMovie) then
  7.     case nVr of
  8.       2:
  9.         if bVideoNormal then
  10.           objMovie(mOpenMovie, "vr2g.mov", "161,18")
  11.         else
  12.           objMovie(mOpenMovie, "vr2p.mov", "277,110")
  13.         end if
  14.       3:
  15.         if bVideoNormal then
  16.           objMovie(mOpenMovie, "vr3g.mov", "161,18")
  17.         else
  18.           objMovie(mOpenMovie, "vr3p.mov", "277,110")
  19.         end if
  20.       4:
  21.         if bVideoNormal then
  22.           objMovie(mOpenMovie, "vr4g.mov", "161,18")
  23.         else
  24.           objMovie(mOpenMovie, "vr4p.mov", "277,110")
  25.         end if
  26.       5:
  27.         if bVideoNormal then
  28.           objMovie(mOpenMovie, "vr5g.mov", "161,18")
  29.         else
  30.           objMovie(mOpenMovie, "vr5p.mov", "277,110")
  31.         end if
  32.     end case
  33.   else
  34.     alert(sMensaje02)
  35.   end if
  36. end
  37.